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; Again I have to say a few words, and I have a few words 
to say. | 


I am very pleased to announce that my pleas for material 
have been answered to a limited extent. There is pleanty of room 
for all you others to grab a page or two (or three). 


Peter Ross has come up with an original concept in. 
Mystery Game Writing. Makes it as simple as filling out a Tax 
Return.( !!! ). I have had to print both parts in one issue, as I 
don't like having to wait 2 months for part 2. and one part was no 
use without the other. And as a bonus I have included his graphic 
notion to finish it off. That will give you pleanty of typing to 
do for a while. He probably has other goodies in store, as he has 
collected a whole file of Mystery games from the library. Thanks 
Peter. 


Inside you will find the next entry in our competition. 
Don't just say ‘Oh, just another map.' Study it and you will find 
there is quite a lot of programming effort been put into it. It 
came close to winning. I'd say, if it had been in color with state 
borders it would have won. I can't Say, as I kept out of the 
judging in case of a tie, when I could have had a casting vote. 


Also for those using VZBASCOM and having difficulties, 
there 15 4 Modification for you to incorpate. You can use a 
Monitor, the Disk Doctor or simply POKE. If you use the latter, 
PEEK the addresses first to make sure you have the right ones. 


And for Action Game you may remember that VZ USER 
published half a game and quit. The next 2 issues will have the 
complete game in them. It is a race game written in Machine Code 
so will have fast action. We have to thank Peter Hichman for this 
contributation. David Wood has shown an interest so we may get 
some good guidelines from him about using machine code in games. 
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610 DATAO,0,0,0,0 A 

620 DATAO,0,0,0,0,0,0,0,0:0:0:050, 1, 85:85, 85,0,1,80,0,0,0,0,0,0 
630 DATAO,0,0,0,0,0 BU EUM SS 

650 DATAO,0,0,0,0,0 dd SE, 

660 DATAO,0,0,0,0,0. LLG ee. 80,0,5,84,0,0,0,0,0 ` 
670 DATA0,0,0,0, 0,4] 7 ATTI 

680 DATA0,0,0, OT, 000 0 D. 6:85 08105: 08, pA., 0,5,85,0,0,0,0,0 
690 DATAO,0,0,0 2 caia, 

700 DATAO,0,0, EE 85:85,;85;80,0,5,85,64,0,0,0,0 
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OO UREA TTA SE 
720 DATAO, 0,0, GE HUE BE RRE AA 0,5,85,80,0,0,0 
750 0ATA0,0,0,0, G7 TE (EA 
740 DATAO,0,0,0, Os T0: 1,85;83,; 05:05; 85.85,80,5,85, 84,0,0 
: /50 DATA0O,0,0,0, G2; 070 ME UE XE 
760 DATAO, 0, 0, 0, G20 D, O, o, 0,5,85;85;95; 95; ,85, 85,85,85, 85, 0 
770 OATAO,0,0,0,0,0,0,0,0,0 A 2 
790 DATAO,0,0,0,0,0,0,0,0,0 |. 
800 a ae ie EELER 
810 DATAO,0,0,0,0,0,0,0,0,0 YA 
820 DATAO,0,0,0,0,0,0,0,0,5,85,85,85,85,85,85,85,85,85,85,85,80 
830 DATAO,0,0,0,0,0,0,0,0,0 
840 DATAO,0,0,0,0,0,0,0,0,85,85,85,85,85,85,85,85,85, m 85,85,84 
850 DATAO,0,0,0,0,0,0,0,0,0 
870 DATAO,0,0,0,0,0,0,0,0, "Osica 
880 DATAO,0,0,0,0,0,0,5.89, 85:59:05, ai as. 85,85,85,85,85,85,85 
890 DATA85,64,0,0,0,0,0:0:050:0 7. — LL 
900 DATAQ,0,0,0,0, 0, 0,95 89,86; 85 86.89 ;-86:85,85,85,85,85,85,85 
910 DATA85, 80,0,0,0, KEG GG dM 5 
920 0ATA0,0,0,0,0,0: 14:6 :89: 69,86; 04, 26, M is 85,85,85, 85,85,85 
950 0ATA85,84,0,0;0:409:45:90:0:010 777 7 5 So 
940 DATAO,0,0,0:0;0:0:5; SE 85,85,85,85,85 
950 ME FEHR Mp 
960 DATA0,0,0,0:9:0:9 §: 89,85 89,86, 85 1895. BBS, 85,85,85, 85, 85 
970 DATA8S, 85 OE GiGi SE 
980 DATAO,0,0,0;9 10:0, 68:88:89:89, 04,06, 85 89 78$; 85,85,85, 85, 85 
990 DATA85,85, 80 EE EE 
1000 DATA0,0,0,0, Gf 10:0;89;85, 85: bg BIS DS, 85,85,85,85,85,85 - 
1010 DATA85,85, 24145050, 0 : 0, ;0,8 E. SE 
1030 DATA85, 85 ,84,0,0,0,0,0, 20 i e ,O ee 
1040 DATAO,0,0,0,0,0,0,5,85, 85,85, 85,85785785,85,85,85,85,85,85 
O60 DATAD. 0090.0. 020. 1.89: Gt. £D. 0s, a5 i 
,0,0,0,0,0,0,1,85,85,85,85,85 8 85,85,85,85 
a E 55,84. ,0,0,0,0,0,0,0 SÉ: Den 
20,0,0,0,0,0,0,85,85,85,85,85,85, 8 85,85,85, 85 
ES eiie Se ANO. aas a ass. 
,U,0,0,0,0,0,0,21,85,85, 85, 85,85, 8 85, 8 85, 85 "S 
1110'DATA85,85,80,0,0, ,0,0,0,0,0 — Á " 
BM DATA0, 0,0,0,0,0,0,0,5,85,8 ,85,85,85,0,85,85, 85, 85, 85,85,85 
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| 85 
LN" 85,85,64,0,0,1,85,21,85,85,85,85 
3 : A i d SA ,85,84,0,0,0,0,84,85,85,85, 85 
$1190, AT "o '80,0,0,0,0,0,17,21,85,85,85,85 
23210 DATAG4,0,0,0, ,0,0,0,0,0 
$1220 DATAO,O,O, *0,0,0,0,1,85,0,0,0,0,0,0,1,69,85,85,85,85,0 
£4230 DATAO,0,0,0,0,0,0,0,0 
£1230 DATAO,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 1,85,85,85,85,0,0,0 
"4250 DATA0,0,0,0,0,0,0 | 
1250 DATAO, 0, 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,85,85,85,84,0,0,0 
1270 DATAO,0,0,0,0,0,0 
1280 DATAO.0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,21,85,85,84,0,0,0 
1290 DATAO,0,0,0,0,0,0 
1300 DATAO..0.0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,85,5,80,0,0,0,0 
1310 DATAO,0,0,0,0,0 | 
1320 D 1A0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
1330 DATAO,0,0,0,0 | 
1340 DATAO.0,0,0,0.0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.0,0,0,0 
1350 DATAO,0,0,0,0 
1360 DATAO,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,5,84,0,0,0,0,0 
1370 DATAO,0,0,0,0,0 
1380 DATAO .0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,5,84,0,0, 0, 0,0 
1390 DATAO,0,0,0,0,0 
1400 DATAO.0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,5,84,0,0,0,0,0 
1410 DATAO,0,0,0,0,0 | 
1420 DATAO,0.0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,80,0,0,0,0,0 
1430 DATAO,0,0,0,0,0 
1440 DATAO 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 


1450 DATAO,0,0,0,0 

3010 FORX=2867 21028703 : POKEX,, 85 : NEXT 

3020 FORX=30688T030719:POKEX, 85: NEXT 

3030 X=0:Y=1:B=0 

3040 FORA=1T062 : SET (X, Y+B) :B=B+1:NEXT 

3050 X=127:Y=1:B=0 

3060 FORA=1T062: SET (X, Y+B) :B=B+1 :NEXT E 
4000 COPYA: 'CRUN: 'CRUN FOR ONE COPY & RUN FOR CONTINUOUS. 
8000 GOTO8000 
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GREAT!!! I have a letter sent to me about the last Game's Column AND :4 
have a CHALLENGE! !!!° After the letter I will try to answer Peter 3 
Watson's questions and also answer his chess question from last time. E. 


xxxMail bag: Peter Watson ***** 


Dear fim. 


I read your comments in the Games Colum of U2DU37 with 
much interest. Yes, I admit you are right, I do spend quite a lot a 
time playing each of the games that I sent in a High Score For. 


I think that the addition of the challenge column column makes the 
High Score Table more confusing. 


I know how difficult it is to classify a game as Easy or Hard. 


g the VZ I kave always written down my personal high 


Ever since gettin 
e scores in every game. Comparing the current best with the score 


achieved on the first day of play gives an idea of how easy it is to 
continually improve on your score. 


E A player who perseveres with Galaxon, Kamikaze and Lunar Lander 
should be able to greatly improve on their scores while saneone 
playing Hamburger Sam might find it very difficult to keep breaking 
their own scores. Of courses this may not be true for everyones and 
the game you play the most will be the one that you will get better 


at. 


What's this about needing two Witnesses? 


dae MÀ "hm manae. a A A 0m E ———À n 


I intend to send some high scores to Harry, 50 I challenge you or 
any other club members to heat them. 


that nobody else sent in scores of their own. 


I was surprised 
I want to see what the other members 


Tell them to get a wiggle an. 


| are capable of. 
1 I have a big question for uou. How could you use the joysticks 
for Defence Penetrator? The one on Tape 4 only works on keyboard. 


Also: what happens after you complete stage 57 Does the game gtart 


from the beginning again? 


; I haven't had much time to spend on the VZ lately, but I’ll 
continue to show an interest in the games colunn for as long as I'm in 


the club. 


forward to 


Okay, I think that’s all I have to say for nou. 1 look 
design 


the next games columns and the other entries in the 
competition. 


Yours Sincerelys 


Peter Watson. 
xe*¥Mail Bag: Peter Watson***** 
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E Well before I start to answer all of Peter's questions, I would 
"ike to thank him. Although I am considered the Games Colunmnist I am 


“in fact only a person who fills in the gap of the games section of the 
‘newsletters if you send me a letter then I have less to worry about 
for the next newsletter and this makes the column work alot better. 


So, THANK YOU PETER WATSON. 
High scores: 


AH? Now you've got ME confused. The first column is the high 
scorers Names the second column is the All-Time high score. Hint: 
The All-Time high that have your name (Peter) beside them are the ones 
you’re barred from. (1 think!) (Am I right, Harry?) 


"What’s this about Qd Scu tuo witnesses?” Well, when I started 
playing for the High Scores Harry informed me about the rules and one 
of them was that you need tuo witnesses. 


It?s good to have a person toa challenge. True, the members do 
need ta get a wiggle oan but I am not the one that will get them 
moving. They have to do that themselves. I hope other members take 
your challenge and give it " a good shake of the stick" (I hope that's 
the right saying, I’m not too good at remembering sayings). I for one 
uill take up the challenge and try and give you a hard task. 


The big answer to the big question. About the time I did the 
Three Reviews I heard about a program that puts Joysticks on a 
keyboard only game. It turned out that a friend had the program with 
Defence  Penetrator, but it uas on tape and it did not work properly. 
A few weeks later he had it on disk and it worked. In the excitement 
Il forgot who sent it and believed that Harry had a copy. (1 assume too 
much sometimes. |) Any way I will send Harry a copy af this programe 
and Harry will do what he thinks best. After the sixth stage in 
Defence Penetrator the game goes back to the beginning. A big hint 
here if and when you get to the sizth stage, make sure you hit the 
alien space craft.or you end up in a tunnel with no way out. 


Harry’s answer to the chess question: - 
Levels 1-2-3 are for playing. Level 4 I don’t know. Levels 5-6 
are far problem solving. They may take up to several hours to make a 
Mave . 


No review this column. I seem to be running out of time lately. 
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THE HIGH SCORES 


I've been hauled over the coals being blamed logo 
mess of the HIGH SCORES. Well I don't think it is a mess! 


First I did male a mistake in ASTEROIDS. The ALL TIME HIGH 
should have been 110000 and not 11000. Hence Tim has not set a new 
high. E 


| | Now we look at the rest. The left 4 columns are the same 
as always. They will record your bi-monthly high scores. The next 
column is a record of the highest scores obtained published in any 
VZ magazine. Are for reference only. The next column (challenge) 
ig the highest score that a person named has achived. If a name is 
not shown, then that score was get by someone in another club, or 
is no longer a member in ours. If a person is named, then that 
person cannot compete in the bi-monthly “RAT RACE", unless their 
score is topped. He/she may still attempt to top the all time 
high, and the score will show in the challenge column. Also Paul 
and Peter can still compete in games that do not have their: name 
in the right most column. 


If the rightmost columns confuses you, just lay 4 sheet 
of paper over them and don't read them. The left columns are the 
same as you always had. However as I have not received any further 
scores I need not reprint them this issue. 


Instead I'll use the space to add to Tim's column. 


The original rules, before I became Editor was that any 
High Score had to have 2 witnesses. I have not bothered about it, 
though we did have a cheat in a while ago. There are several ways 
of cheating. One by giving any score that comes to mind. In Dawn 
Patrol there is a simple way to get a million or more, that will 
show on the score pad, It's just a matter of how long you can. 
spend to hold a key down. In Basic games it's easy to list the 
program and alter what will be paid for any item. Something that 
counts as one, make it ten. ( Or 100). 


The EASY/HARD rating is generally done by the programmer 
when writing it. and is attained by alteration of speed, or lives 
or in what facilities are available. As in Hamburger Sam, the 
amount of Pepper you get, or how many Gremlins are about or what 
you are paid for each Hamburger. Take Super Snake. In level i you 
could play all day. I've never seen a score in Level 10. It's not 
a matter if you find it hard, but set levels in the program. I 
find them all hard! 


Tim has sent me the Joystick .version of Defence 
Penetrator. I will put it ona library disk. In the meantime if 
someone wants it, send me à disk or tape and return postage and 
I'll put it on for you. It is Machine code and you just can't add 
to it. However for Basic programs, I'll print the alterations 
needed in the next issue. It is only a matter of about 10 lines. 


G 
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| MODIFICATION TO STACK POINTER IN 


VZBASCOM 


by BOB KITCH DEC 1991 


i | | 
A problem with the STACK POINTER has been discovered in VZBASCOM. 


After a program has been compiled the STACK POINTER area is overwritten 
and the compiled program will not run. Short programs do notoverwrite 
this are , and they perform satisfactorily. Longer programs will cause 
the error - and usually yesult in a system reset. 


A fix is outlined herein that can be carried out with a suitable 
monitor program. The DISK SECTOR EDITOR of DISK DOCTOR in the DISK TOOL 
KIT is also suitable to change the couple of bytes. 


In the original version the following disassembly applies 


B523 ED 73 F8 F6 LD ( F6 F8 ) SP 
B527 ED 7B F8 F6 LD SP (F6 F8) 
B52B CD 56 B5 CALL 6556 

B52E 21 ..... 


This should be changed to 


B523 31 A3 A1 00 LD SP, A1A3 
n527 ED 73 F8 F6 LD (F6F8), SP 
B52B CD 56 B5 CALL B556 


B52E 21 ...... 


tHE BYTES TO BE CHANGED ARE 


B523 ED TO 231 
B524 73 TO A3 
B525 F8 TO A1 
B526 F6 TO 00 
B527 NO CHANGE 
B528 78 TO 73 


This should overcome any problems with VZBASCOM. N& other 


problems have been drawn to my attention. 
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INSTRUCTIONS FOR ADVENTURE BASE 


By PETER ROSS 


Have you ever wanted to write your own 
adventure programs, but is shocked by the 
amount of programming needed to get the 
game off the ground? Well relax. I have 
come up with a program that does about 99% 
of all this for you. It's called 
'ADVENTURE BASE'. All you have to do is 
enter in some information about how you 
want your program to turn out, which is 
all explained later. But for now you'll 
have to get ADVENTURE BASE into your 
computer. So do that and come back to the 
article when you've finished. 


O.K. You have got ADVENTURE BASE into 
your computer. Make sure that you have it 
saved before you enter in any of your ow 
information so that later on you can use 
it again for another game that you might 
want to make. Note that I have already 
entered a demonstration program into 
ADVENTURE BASE. It's name is "The HAUNTED 
CASTLE of KRILE". It's quite simple to 
get to the end, but it gives you a simple 
demonstration of what ADVENTURE BASE can 
do. Now you need to draw up the base map 
for the adventure that .is doing tobe 
made. Put inall the room discriptions, 
treasures/items and a number for each 
room, starting at 1 and going from left to 
right. If you don;y know what a base map 
is then refer to David Woods 'HOW TO 
CREATE ADVENTURE PROGRAMS' in issue 27 of 
the VZ DOWN UNDER GROWP’'S | BIMONTHLY 
NEWSLETTER/ MAGAZINE. 


THE TRAVEL TABLE. 
By now you have drawn up your map. (Don't 
forget to onclude a few tricky puzzels to 
make the game more interesting), and are 
wanting to feed this information into the 
adventure base. To do so you will need to 
draw up a TRAVEL TABLE looking like this: 


ROOM NO NORTH SOUTH EAST WEST 


With numbers you wrote in each room on 
the map, write them in assending order 
going downwards in the ROOM No, section. 
Say room no.2 is the "magicain's quarters. 
Exits lead north, south and east”. In this 
case if you went north 
into room 1 


it would lead you 








0 
n MN 
op D 


Going south would lead yoy k- 
4. Going east would lead you into fe 
and if you decided to o west yag Wl 
crash into a wall, and a message A 
come up saying” WHO DO YOU THINK YOU A 
TRYING TO WALK THROUGH WALLS!". The has 
map forthis little game would be this: 2 


(| room 1 XXXXXXXXK à 
i No,1 1 XXXXXXXXK | 
i I t 
¡magician's + room 
; room No.2 i No,3 e 

i ) 
2060000000%8008000 lLov.....na pos ul 
|: room ı XXXXXXXXX à 
|: No.4 ı XXXXXXXXX ı 
i i ) 


Below is the travel table for the base 
map I Just talked about. Notice and tahe 
good look at the travel table. Without 
the travel table an adventure same would 
be so easy because there would be no walls 
stopping you from going any place, where 
with a travel table would be a very 
complex place to get to. The travel table 
for the adventure above: 


ROOM NO. NORTH SOUTH EAST WEST 


1 0 2 O O 
2 1 4 5 O 
5 0 O 0 2 
4 2 0 0 0 


Once you have completely written out 
your own travel table you will need to 
enter it into the adventure base program. 
It is done like this. XXXX DATA 0,2,0,0. 
Notice that the four numbers here are the 
same four numbers written in my travel 
table in the first row. (Except the 
numbers under the heading ROM No. 
because they are only there for reference 
so you know what order to put the data in 
when entering it into the program.) The 
XXXX stands for the line number. You will 
enter the information of the travel table 
in assending order starting at line number 
4370. ADVENTURE BASE in it's present form 
can hold up to 16 rooms, but if you are 
desperate for more, later on in this 
E I will show you one way of doing 


it 











x $. 


i 


a few ‘simple words the 






RPT BASE KNOWS. are : GO, RUN, 
Zoe by a direction. ie NORTH, 


WEST. 


TEET, TAKE, LIFT followed by the name 
l ian object. You can hold up to 5 objects 
"aut this can be Cen by changing line 
1250 into:1250 IF FLAG = 5 THEN PRINT"ALL 
HANDS ARE FULL": GOTO 80 ‘change the 5 to 
. DROP, LEAVE followed by the name of 
an object. Each room can hold up to a 
of 3 objects but this can 
changed. NOTE. It is harder to change 
this than it is to change the TAKE LIFT 
routine. 


ad , 
Bs. 


List all of your treasures 
/ irems, score and the total of al! 
treasures /items în DOLLARS. QUIT. For 
those wimes out there that need to end the 
game before going to the end. 


INVENTORY.. 


HELP. Doesn't much good in the 
present form of ADVENTURE BASE but you Can 
add some real if you. like.Also if you're 


making a proper HELP command add a cost 
for it $$$. 
You can add additional vocabulary 


words. Put these in lines 860 to 050 and 
your new commands can be acted on in lines 
2700, 2730, 2770, 2810 and 2850. 


are eneterd using 
the "PRINT" command. You must enter the 
exits along with the room discriptions. 
Lines for entering room discriptions start 
at line 3090. To add more rooms you will 
have to do this:ADD on more travel table 
data at the | 4520 upward 

Change the 16 in 
of tooms you are going to have 
completing the proceedure 
more rooms. Change the 16 in line 4100 to 
the number of rooms 

after completing the 
on more rooms. Add some line after line 
3070 saying—IF RO= & THEN COSE 3 "AT 


ROOM DISCRIPTIONS 


procedure of adding 


means the new room numbers you are going . 


| I means the line in which you 
are going to write the room discription 
for. Don't forget to put a RETURN after 
“each new room discription. If 
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your starting room is different to 9 
then change the 9 in line 4050 to the 
starting room number. Also if your 


. finishing room number is different to 16 


then change the 16 in line 110 to the 
finishing room number. 


TREASURES AND ITEMS. 


There are / treasure / items in the 
ADVENTURE BASE program. You can change 
these to whatever you fancy. Also you will 
need to change the number at the end of 
each object data line, because it stands ` 
for the value of each object before it. 
The treasure / item deta is at the very 
end of the Program. It starts at line 
4540 and ends at line 4600. To place a 
certain item or treasure in a certain room 
you will have to alter some of the 
programming from lines 4190 and downwards. 
This is what you will need to : Change 
each line below line 4190 to this— OXX 
a(8,5)» &. The YXXX stands for the lines 
below 4190 "4" means the room that you are 
going to Place the item or treasure "& 
means the items Or treasure numbers. The 
item / treasure number starts at one and 
goes to seven in the order you placed your 
object data. Examp1e—— The first item in 
the object data is 8 GOLD AXE. You need 
to have it in room 11 because it suits the 
room discription, SO line 4190 would 
be—4190 A(11,5)=1 


FURTHER IDEAS 


Things can happen at random using the 
"PND (X) command like having 3 painting 
slideing from a wall. This would not kill 
the player but use up some of his 
strength. The streneth variable is ST. ` 


SOUND EFFECTS SO the game seems more 
life-like. 


FRIENDLY and UNFRENDLY encounters that 
give you information or use up your 
strength, like having an arm wrestle or 
something like that. 


instead of the 
(SET) the 


ending 
You could draw 


A GRAPHICAL 
boreing story. 


player releasing 8 WICKED SPELL. 














10 REM ADVENTURE" BASE TOR 

20 REM 

30 REM * BY PETER ROSS a 

40 REM *FOR VZ300/200 1992 * 

50 REM 

55 CLS:PRINT:PRINT" THE HAUTED CASTLE OF KR 
ILLE * 

56 PRINT" BY PETER ROSS 


60 GOSUB3950:REM INITIAL ISE 

80 REM REPORT TO PLAYER 

90 REM 

100 PRINT” "3 
110 TFRO=16THENQU=1 :G0TO2950 

150 GOSUB3060:REM ** ROOM DESCRIPTIONS ** 
140 REM ** NEXT LINE ACTIVATED IF OBJECT IN 
ROOM ** 

150 TFA(RO, 5) <>00RA (RO, 6) <>OORA (RO, 7) <>OTHEN 
GOSUBS850: REM OBJECT 

290 PRINT" YOLR STRENGTH IS:'ST'2"" 

300 IFST<OTHEN320 

510 GOTO500 

520 CLS:PRINT" UNFORTUNATLY YOU ARE EXHAUSTE 





D" 

525 PRINT" SO THIS ADVENTURE MUST END 
530 PRINT" BETTER LUCK NEXT TIME! 
540 GOTO2990 


360 REM RR ainan 

370 REM ** NEXT LINE CHECKS IF PLAYER IS CAR 

RING ANYTHING ** 

380 FLAG=0 

390 FORJ=1T05 

400 IFP (J) <>OTHENFLAG=1 

410 NEXTJ 

420 IFFLAG=OTHEN49O 

425 CLS:PRINT" 

NT 

430 CASH=O 

440 PRINT" YOU ARE CARRYING: * 

450 FORJ-1TO5 

T TFP (J) <>OTHENPRINTOS (P (J) y ¿CASH=CASH+V (P 

( 

4/0 NEXT J 

480 IFCASH>OTHENPRINTTAB (8) ; "TOTAL VALUE - $ 
*; TRS (CASH) 

490 PRINT 

495 PRINT: PRINT "HIT RETURN TO CONTINUE: " ; : IN 

PUTDDS : GOTO80 


510 REM ** NEXT LINES ACCEPT PLAYER INPUT ** 
320 KW-O:REM ** KW STANDS FOR KEYWOR — KW = 
1 IF UNDERSTOOD ** 
940 INPUT“ WHAT NOW"; SAS: IFAS=" “THENPRINT "DONT 
GIST STAD TEE i 


ws INVENTORY "e" : PRI 









, fo LET Ln LINES Ab SPACES IF LESS THE 










40570 AS=ASC (AS) | x 
580 M-LEN (AS) : IPM ZTHENAS-AS: 07 
590 REM miere materie ete marea co 
600 REM ** GET FIRST THREE CHARA 

K IF ‘HELP’ OR "OI" | 
610 BS=LEFTS(AS, 3) | 
620 IFB$-"HEL"THENPRINTTAB (4) ; "YOU uer 
JOKING!" :GOTO1050 

625 IFBS=" INV" THENGOTO380 

630 IFB$-"QUI"THENQU-4 : GOTO2890 
640 REM AEREA CAER EEE 9 900 
650 REM ** NOW BREAK DOWN PLAYER INPUT** 
660 N=1 

670 IFMID$(AS,N,1)«»" "THEN7OO 

680 C$2MIDS$ (A$,N*1,3) : IFLEFT$S (C$, 10 «»" "THE 
N70 - 

690 IFLEFTS(C$,1)=" “THEN730 

700 IFN<MTHENN=N+1 :GOT06/0 

720 REM GETS HERE IF ONLY ONE WORD ENTERED 
BY PLAYER CHOSE REPLY 

730 IF RND(2)=1THEN750 

740 PRINT"I NEED TWO WORDS. " :GOTO5AO0 

750 PRINT"TWO WORDS ARE NEEDED, NOT ONE" :Q 
TO540 


770 REM ** NEXT LINES UNDERSTAND PLAYER IN 
UT ac 
820 REM ** NEXT LINE UNDERSTANDS GO/MOVE/R 


N e 

830 IFBS="GO "ORBS="MOV"ORBS="RUN" THENKW=1 

GOSUB 1080 

840 REM ** NEXT LINE UNDERSTANDS GET/TAKE/ 
IFT ** 

850 IFBS="GET"ORBS="TAK "ORBS="L IF" THENKW=1 

GOSUB1 200 

860 REM ** NEXT LINE UNDERSTANDS DROP/LEAV 
+ 


870 IFBS="DRO"OR BS="LEA" THENKW=1 :GOSUB144 
880 REM ADD OWN COMMANDS HERE 


- 890 REM IFB$=... THEN GOSUB 2700 
HERE 


900 REM ADD OWN COMMANDS 
910 REM IFB$-...THEN GOSUB 2750 
920 REM ADO OWN COMMANDS HERE 
930 REM IFB$=. . . THEN GOSUB 2770 
940 REM ADD ON COMMANDS HERE 
950 REM IFB$-...THEN m 2810 
960 REM ADD OWN COMMANDS HERE 
970 REM IFBS=...THEN GOSUB 2850 
980 TFKW=1 THEN? 050 
REM ENEE ene 
1000 REM e CHOOSE ` ‘I DONT UNDERSTAND’ MES 
1010 RRND) 
1010 
1020 TFR=1 THENPRINT" IT WOULD NOT BE WISE © 


"AS 
1030 IFR-ZTHENPRINT"ONLY I FOOL WOULD TRY 
O "AS ` 









` = + 
ESP EFTS (CS, 1) 
E "ANDA (O, 1) -0, PRINT"YOU CANNOT O 


PT WAY" RETURN | 
MS IrCS="S"ANDA(RO, 2)=0,PRINT"THERE 15 NO 


Sg 








TEXT. SOUTH RETURN 
! 791120 IFCS-"E"ANDA (RO, 5) -OTHENPRINT I SEE NOW 
ERE TO THE EAST ^; 

1125 TFCS="E" ANDA (RO, 3) =<OTHENPRINT"TO GO" RE 


TURN 

1130 IFCS="W" ANDA (RO, 4) =<OTHENPRINT "WHO DO YO 

U THINK YOU ARE "; 

1135 IFC$="W" ANDA (RO, 4) =OTHENPRINT "TRYING TO 
THROUGH WALLS" 


WALK 

1137. IFCS-"W" ANDA (RO, 4) -OTHENRE TURN 

1140 IFCS="N" THENRO=A (RO, 1) 

1150 IFCS="S" THENRO=A (RO, 2) 

1160 IFC$-"E" THENRO-A (RO, 5) 

1170 IFC$-"W" THENRO-A (RO, 40 

1180 RETURN : 

1200 REM ** GET OBJECTS ROUTINE ** 

1210 FLAG-O 

1220 FORJ=1T05 

1230 IFP (J) <>OTHENFLAG=FLAG#1 

1240 NEXT J 

1250 IFFLAG-5,PRINT"YOU ARE ALREADY CARRING 
FIVE OBJECTS" :RETURN ` 

i260 REM ** CHECK IF ANYTHING IN ROOM IS TO 
BE PICKED LP ** 

1270 TEA (RO, 5) <>00RA (RO, 6) <>00RA (RO, 7) <>0OTHE 
N1310 

1280 PRINT"I SEE NOTHING TO PICK UP":RETURN 
1300 REM ** NOM PICK IT LP ** 

1310 DS="":ES="":FS="" 

1220 D$-LEFT$ (OS (A(RO,5)),3) 

1330 ES=LEFTS (OS (A(RO,6)) , 5) 

1240 FS-LEFTS (CO$ CA (RO, 7) ) „3) 
1350 IFC$-DSTHENN-A (RO, 5) :A (RO, 5) -0:G0TOT 38D 
1360 IFCS-ESTHENN-A (RO, 5) : A (RO, 6) -0:GOTOT 580 
1370 IFCS-FSTHENN-A (RO, 7) :A(RO, 7) -O 


| 1380 1 
1390 TFP (J) =OTHENP (J) =N:GOTO1410 
1400 IFJ<5THENJ=y+1 :GOTO1 390 
1410 PRINT:PRINT"YOU NOW HAVE THE ” 505 (N) 


1460 FORJ=1TOS — 


Yu zi zt aD. is : 2 ze pe 
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1500 IFA (RO, 5) -0ORA (RO, 6) "OORA (R 
O,7) -OTHEN1520 
1510 PRINT"THIS ROOM ALLREADY HOLDS ITS 
MAXIMUM AMOUNT OF O°; 
1515 PRINT "BJECTS. " : RETURN 
1520 0$-"":D-0 
1530 FORJ=1T08 
1540 IFLEFTS (OS (J) , 3) =<CSTHENDS=08 (J) ¿D=J 
1550 NEXTJ 
1560 IFD$=<>""THEN1580 
1570 PRINT"HOW CAN YOU WHEN YOU DONT EVEN 
HAVE IT!":RETUEN 
1580 FORJ=1T05 
1590 IFP (J) =DTHENP (J) =O 
1600 NEXT J 
1610 TFA (RO, 5) -OTHENA (RO, 5) -D:GOTO1640 
1620 IFA(RO,6) -OTHENA (RO, O) -D :GOTO1640 
1650 IFA(RO, 7) -OTHENA (RO, 7) -D 
1640 IFBS="DRO" THENPRINT "YOU HAVE DROPPED T 
1642 IFB$-"LEA"THENPRINT "YOU LEAVE THE "D$ 
1650 RETURN 
1942 IFP(J) -5THENPRINT" THING OTHER THAN MON 
EY":T(J)-5 
2012 GOTO2170 
2152 PRINT" ";OS(P(J)) 


2820 REM ** OWN COMMANDS ACTED ON HERE © 
2850 REM ** OWN COMMANDS 

2840 REM ** OWN COMMANDS ACTED ON HERE © 
2850 REM ** ON COMMANDS ACTED ON HERE 7 
2860 REM *"* O«N COMMANDS ACTED ON HERE 77 
2870 REM ** ON COMMANDS ACTED ON HERE ** 
^go0 REM ** END OF GAME ROUTINES "* 

2900 PRINT 

2910 SC=0:REM SCORE 

2920 REM 

2930 CLS:PRINT :PRINT :PRINI I DID NOT IMG 


INE YOU WOULD | | 
TURN OUT TO BE A QUITTER! " :GO 


2940 PRINT" 

TOZ990 | 

9050 PRINT"  CONCRATULATIONS! YOU HAVE 
COMPLETED THIS ADVENTURE” 


2960 PRINT" 

2970 SC=100 eg dad 
THE SCORE IS WORKED QuT BY MONEY/M 
ILLED/ECT .— EDS ti iei AAT E. 
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3010 PRINT:PRINT" YOU FOUND $*;CASH"WORTH" 
3020 PRINT” TREASURE 
5030 PRINT” YOUR SCORE FOR THIS ADVENTURE” 
3035, PRINT" IS: "SC 

3040 END | 


REM act tct edo Ht rit 
REM * ROOM DESCRIPTIONS * 
3065 PRINT"YOU ARE "; 


3071 IFRO=6THENGOSUBS340 
3072 IFRO=7THENGOSUB3390 
3073 IF 


3078 IFRO=1 3 THENGOSUB3690 

3079 IFRO=14THENCOSLB3740 

3080 IFRO=15THENGOSUB3790 

3085 RETURN | 

3090 REM **ROOM CNE** 

5100 PRINT" IN THE ROYAL GARDEN” :PRINT"EXITS: 
3110 REM 

3120 REM 

3130 RETURN 

3140 REM **ROOM TWO** 

3150 PRINT"THRONE ROOM. THE THRONE IS EMPTY 
EXITS: N,S,E, | 

3160 REM 

3170 REM 

3180 RETURN 

3190 REM *"ROOM THREE** 

5200 PRINT” IN THE MAIN HALL" :PRINT"EXITS: N, 
3210 REM 

3220 REM 

3230 RETURN 

3240 REM **ROOM FOUR** 

3250 PRINT“IN THE ROYAL VAULT, BUT THERE IS 
NO MONEY TO BE SEEN. 

3255 PRINT"EXITS: V, 


RETURN 

3790 REM **ROOM FIVE** 

5500 PRINT"IN THE KINGS BEDROOM" :PRINT"EXITS 
3310 REM 

3320 REM 


RETURN 

3340 REM **ROOM SIX*® — — 

3350 PRINT"ENTRY HALL" :PRINT"EXITS: N,S,E," 
3300 REM 

on 


3300 REM **RO0M SEVEN** 






o Pe MNT 
€ 


5400. PRINT"IN THE DRAWING ROOM”: PRINE 


3440 REM **ROOM EIGHT** ^ E: 
3450 PRINT*IN THE KITCHEN WITH A LOCKED "7 


CUPBOARD" ; 

3460 PRINT"EXITS: W" 

3470 REM 

3480 RETURN 

3490 REM **ROOM NINE** 

E PRINT"ON THE DRAWBRIDGE" :PRINT"EXITS: 
3510 REM 

3520 REM 

3530 RETURN 

2540 REM **ROOM TEN** 

2550 PRINT"IN THE KINGS DRESSING ROOM" :PRIN 
T"EXITS: N, 

3560 REM 

3570 REM 

3580 RETURN 

3590 REM **ROOM ELEVEN** 

3600 PRINT’ON A BLUESTONE PATH" PRINT" TRACK 
S LEAD: N,S,E, 

3610 REM 

3620 REM 

3630 RETURN 

3640 REM **ROOM TWELVE** 

3650 PRINT"BETWEEN TWO LARGE WALLS" :PRINT"] 
RACKS LEAD: W,E," 

3660 REM 

3670 REM 

3680 RETURN 

3690 REM **ROOM THIRTEEN** 

3700 GE IN AN OLD COURTYARD" PRINT "EXIT. 
+ S,W,E" 

3710 REM + 

3720 REM 

3730 RETURN 

3740 REM **ROOM FOURTEEN?* e 
3750 PRINT"IN THE ROYAL ARMORY" :PRINT" A T 
ACK LEADS WEST 

3760 REM 

3770 REM 

3780 RETURN 

3790 REM **ROOM FIFTEEN** 

3800 PRINT"IN THE ROYAL MINT, NOW " :PRINT 
HERE NO MONEY IS MADE 

3805 PRINT"A TRACK LEADS NORTH" 

3810 REM 

3820 REM 

3830 RETURN | 

3840 REM sosele eee ` 

3850 REM ** DESCRIBE OBJECTS ** 









GA ) REM 
E5870 PRINT^YOU CAN SEE: 
r 3880 IFA(RO, 5) <>OTHENPRINTOS (A(RO, 5)- 
* 3890 IFA(RO,6) <>OTHENPRINTOS (A (RO, 6) ) 
3900 IFA(RO, 7) <>OTHENPRINTOS (A(RO, 7) ) 
5910 FORZ=1T0500:NEXTZ 


5950 REM ** INITIALISE ** 
3960 DIM A(16,8), P (5),0$ (05 , VC20) , T (5) 


3980 ST=99:REM** STARTING STRENGTH POINTS ** 


4040 CASH=0:REM TREASURE 

4050 RO-9:REM STARTING ROOM 
4060 QUE1:REM END OF GAME FLAG 
4080 C$-"' 
4090 REM ** SET UP ROOMS ** 

4100 FORX=1T016 — : 
4110 FORY=1T04 

4120 READ A(X, Y) 

4130 NEXT Y 

4140 NEXT X 

4150 REM ** DISTRIBUTE TREASURE ** 
4160 FORZ=1T08 

4170 READOS (2) ,V (2) 

4180 NEXT Z 

4190 A(4,5)=1 

4195 A(14,5)=2 

44200 A(13,5)=3 

4205 A(15,5)=4 

4210 A(8,5)=5 





















Cen Een e use the pen vacant 
will we ae this | denen ration, 


'- 4220 A(10,5)=7 


4215 A(7,5)=6 


ek wird i 


4225 A(1,5)=8 
4340 RETURN 
4360 REM ROOM DATA 

4570 DATAO, 5,0,0:REM ROOM ONE 


4580 DATA16,5, 5,0:REM ROOM TWO 

4590 DATA 1,6,4,2:REM ROOM THREE 
4400 DATA 0,0,0,3:REM ROOM FOUR 
4410 DATA2,10,0,0:REM ROOM FIVE 
4420 DATAS, 11,7,0:REM ROOM SIX 

4430 DATA 0,0,8,6:REM ROOM SEVEN 
4440 DATA 0,0,0,7:REM ROOM EIGHT 
4450 DATA 11,0,0,0:REM ROOM NINE 
4460 DATA 5,0,0,0:REM ROOM TEN 

4470 DATA 6,9,12,0:REM ROOM ELEVEN 
44480 DATA 0,0, 13,11 :REM: ROOM TWELVE 
44490 DATAO, 15,14,12:REM ROOM THIRTEEN 
4500 DATA 0,0,0,13:REM ROOM FOURTEEN 
4510 DATA 13,0,0,0:REM ROOM FIFTEEN 
4520 DATA 0,2,0,0:REM ROOM SIXTEEN 


4530 REM *** OBJECT DATA *** 
4540 DATA "CROWN”, 2000 

4550 DATA "SWORD", 10, AXE,8 
4560 DATA "COIN",2 

4570 DATA "CARROT",.55 

4580 DATA "KNIFE",5 

4590 DATA "GOWN" ,40 

4600 DATA "SHOVEL",5 
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“4 O RE 4 Mil 
20 MODE (1) : sCOLOR4, 0 AE 

30 FORA=1T0398 - sREADB, C: SET(B, O: : NEXT : COPY 
35 REM **DATA SECTION ONE** 


50 DATA76,4,77,4, 80, 4, 81, d 77, 5, 81, d Z, Le, 
60 DATA82,5,83,5,77,7,81,7,76,8,81,8, "t 
70 DATABO, 11, „75, 12, 80, 12, 75, 13, "ET , 






- 90 DATA64, 10,65, 10,66, 
100 DATA64,11,65,11,70, NE 
110 DATA65, 14,70, 14,65, 15, 7D] 3,0355; 
120 DATA69, 17,70, 17,71,17.72, 9. ws 
125 REM **DATA SECTION THREE** | VI 
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130 DATA73,17,78,17,64,18,65,18, gh ,18,68,18,75,18,76,18 
140 DATA77,18,78,18,62,19,63,19, | ,19,77,19,78,19,72,20 
150 DATA76,20,77,20,66,21,72, M. i 21109,22,72,22,77,22,66,23 
160 DATA71,23,74,23,75,23,77,23 y 24578,24,77,24,64,25,65,25 
170 DATA67,25,68,25,69,25,72,25,73,25,74,25,75,25,77,25,62,26 
180 DATA65,26,77,26,72,27,73,27,76,27,64, 28,65, 28,66, 28,67, 28 
190 DATA68, 28,69, 28,70, 28,71,28,75,28,62,29,75, 29,62, 30,64 

200 DATA50,65, 50,66, 50,67,30,68, 50,69, 50,70, 30,71,30,72,30,75, 30 
210 DATA74, 51,65, 52,66, 52,67,52,68, 52,69, 52, 70,32,71,32,72,32 
220 DATA73,32,74,32,62,33,63,33,64,33,65,33,67,33,68,33,69,33,70 
230 DATA33,72,33,74,33,63,34,65,34,67,34,68,34,69,34,70,34,7 





240 DATA34,74,34,63,35,65,35,66,35,67,35,68,35,69,35, 70,35, 71,35 


250 DATA72,35,73,35,74,35,62,36,63,36,64,36,74,36 

255 REM **DATA SETION FOUR ** 

260 DATASS, 19,59, 19,60,19,61,19,57, 20, 4: Zt, 26,21,45,22,44,22 

270 DATA5S6, 22,44, 23,45,23,56, 23,45, E SEL d 24,46,25,47,25 
SZ 56,27,49,28,50,28 


280 DATAS7,25,47, 26,48, 26,57, 26, 
i dc 50,29,51,29,57,29 
En 


290 DATA56, 28,61,24,61,25,61, 26, 
300 DATA51, 30,52, 30,57, 30,52, 131,53,32,54,52,57, 32 
,34,57,34,53,35,55,35 
LC 37,58,37,59,37,60,37 

2:61,33,61,34,61,35,61,36 ` 


310 DATA58, 32,54,33, Ka? (58/85, 
8, i 














320 DATA56,35,53,36,54 3 
330 DATA58, 38,59, 38,60,3 t 
340 DATA61,37,61,38,61,39,6%+, 





345 REM **DATA SECTION FIVE** vn 

350 DATA62,38,63,38,64, 35,65, ep 40,67,41,67,42,62,41 
360 DATA62,42,68,42,62,43,68, 45.6 d 45,62,44,68,44,62,45 
370 DATA68,45,63,46,67,46,63,47, els »48,68,49,68,50,68,51 
380 DATA68,52,63,48,63,49,63, so slots ,52,64,55,68,55,64,54 
390 DATA65,54,66,54,67,54,68,54 ,96,64,57,64,58,68,55 
400 DATA68,56,68,57,68,58,63,59,64, E 65,59,68,59,62,60,66,60 
410 DATA68,60,62,61,67,61,68,61,62,62,68,62,62,63,63,63,64,63 


420 DATA65,63,66,63,67,63,68,63 
425 REM **DATA SECTION SIX** ` 

430 OATA73 ,37,74,37,72,38,75,38,72, 39,76, 39,71,40,76,40,71,41 
+40 DATA76,41,71,42,71,43,71,44,71,45,71,46,77,42,77,43,77, 44 
150 DATA77,45,77,46,72,47,72,48,72,49,72,50,72,51,78,47,78,48 
160 DATA78,49,78,50,78,51,73,52,77,52,73,53,74,53,75,53,76,53 
170 DATA77,53,73,54,73,55,73,56,73,57,78,54,78,55,78,56, 78, 57 
180 DATA73,58,74,58,75,58,78,58,72,59, 73,59, 76,59, 78,59, 71,60 
(90 DATA77,60,78,60.71,61,78,61,71,62,72,62,73,62,74, 62,75, 62 
Wu DATA76, 62,77,62,78,62 








